home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb38831.lsp < prev    next >
Text File  |  1998-03-15  |  1KB  |  55 lines
  1. ;=============388.31 ABDECK- und EINFAßPROFIL PPH
  2.  
  3. (EAITDBL "0038831")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:38831V1 (/ P1 P0)
  8.    (EAITDBL "0038831")
  9.    (princ (strcat "\n\n" EAITbez1))
  10.    (EAITvari)
  11.    (EAITvars)
  12.    (setvar "ORTHOMODE" 1)
  13.  
  14.    (EAITbpt nil nil nil)
  15.    (setq P1 (getpoint))
  16.    (if (= P1 nil)(setq P1 (EAITrpt)))
  17.  
  18.    (setvar "OSMODE" 0)
  19.    (EAITmsg "mb_mld10" "\n" "003" nil)      ;Drehwinkel
  20.    (command EAITege (strcat EAITpfn "02611v1") P1 "" "" EAITofkei pause)
  21.  
  22.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (EAITbp) (- (EAITbw)(EAITgib 90)) 5) "" "" ""
  23.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  24.    )
  25.  
  26.    (EAITvarz2)
  27.    (princ)
  28. )
  29.  
  30. (defun C:38831V2 (/ P1 P0)
  31.    (EAITDBL "0038831")
  32.    (princ (strcat "\n\n" EAITbez1))
  33.    (EAITvari)
  34.    (EAITvars)
  35.    (setvar "ORTHOMODE" 1)
  36.  
  37.    (EAITbpt nil nil nil)
  38.    (setq P1 (getpoint))
  39.    (if (= P1 nil)(setq P1 (EAITrpt)))
  40.  
  41.    (setvar "OSMODE" 0)
  42.    (EAITmsg "mb_mld10" "\n" "003" nil)      ;Drehwinkel
  43.    (command EAITege (strcat EAITpfn "02611v2") P1 "" "" EAITofkei pause)
  44.  
  45.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (EAITbp) (- (EAITbw)(EAITgib 90)) 5) "" "" ""
  46.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  47.    )
  48.  
  49.    (EAITvarz2)
  50.    (princ)
  51. )
  52.  
  53. (princ)
  54.  
  55.